TDL ISO 

BITEAM - 

CP/M DISK ASS 

EMBLER VERSION 2. 

„ PEEL 
.IDENT 
»IMSER 
„DEFIN 
MV I 

XLABs DCR 

JRMZ 

21 PAGE 1 

BITBANG 

T BBEQU.ASM 
£ WASTE C TIME * 7,LAB] = i: 

A,TIME 

A 

%lab:i 

0099 


BAMGER-99H 

; -ft 

5 * COMMAND TO 
5 *ft GET variab 

5 -sBHRHf 

3 BIT BANGER 10 PORT . 

READ BLOCK INTO MEMORY 

1 e 

0000 

CD 0000s04 

GETCss CALL 

TSTVF'F# 

0003 x 

CD 0013"' 

CALL 

TARGET 

0006 

0007 •" 

1-7 

EST ESTFIN 

? 

3 

3 * LOAD PROGRAM INTO MEMORY 
? •& 

LOADC«: 

0007 y 

21 0000 s 05 

LX I 

R 

H? TEXT# 5 HL=TEXT AREA START ADI 

000A 

CD 0013"' 

CALL 

TARGET 

OOOD •" 

22 0000s06 

SHLD 

TXTUNF# 3 SET NEW TXTUNF 

0010'" 

0013 •" 

C3 0000 "07 

•JliP CL.RSCR# § ENTER CLEAR TO END 

5 ***** 

5 * 

3 * READ BLOCK INTO MEMORY 

3 * HL=READ ADDRESS 
$ * 

3 ***** 

TARGETS 

0013"' 

D5 

PUSH 

D 

0014 
0015-" 

F3 

DI 

. SEN Ns 


0015 •" 

CD 0035 •" 

CALL 

CHARACTER 

INCHAR 3 AWAIT SENTINEL 

00 is-" 

79 

MOV 

A ? L* 

0019-" 

28FA 

JRZ 

. SENW . 

OO1B 

FEA5 

CPI 

0A5H 

00 ID-" 

20F6 

JRNZ 

»u SENW 

00 IF'" 

0022 •" 

11 4000 

. LX I 

ORE ADDR 
» . CHRL s 

D.4000H 3 DE=FEEDBACK SI 

0022 -" 

D5 

PUSH 

D 

0023 •" 

CD 0035"' 

CALL 

INCHAR 

0026" 

D1 

POP 

D 

0027 •" 

2809 

•JRZ 

. „ DONE 

0029 •" 

71 

MOV 

M 7 C 

002A ■" 

79 

MOV 

A,C 

002B " 

12 

STAX 

ON SCREEN 

D ? GIVE FEEDBACK 
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002C 

3.3 

ADDR 

IN X 

D 3 BUMP FEEDBACK 

002D 

CBA2 


RES 

4 , D 3 CONSTRAIN TO 4 



DOOM . 4FFFH 


002 F ■" 

23 


INX 

H 

0030 

3.SF0 


JMF'R 

. CURL 

0032 •'* 
0032 x 

FB 

..DOMES 

El 


0033 x 

D1 


POP 

D 

0034 

C9 

5 *•*■#■*■* 

$ 

RET 




3 * SUBROUTINE 

TO INPUT A CHARACTER 



3 * RETURNS CHARACTER IN C 



3 ■* AND 
MED 

STATUS 

OF NONZERO UNLESS A TIMEOUT NAPPE 



5 * IN 

3 * 

; **rhrr** 

WHICH CA 

SE ZERO STATUS IS RETURNED 

0035 x 


INCHARs 



0035 

01 0810 

ACTOR 

LX I 

8,83.OH 3 B=BIT CTR* C=TIMEOUT F 

0038 *“* 

UlJ 0049 

. .SBWs 

CALL 

INBIT 3 AWAIT START BIT 

003B ■- 

2804 


JRZ 

. .GETL 

003D"' 

OD 


DCR 

C ? NOT YET - DCR TIMEOUT 

003E 

20F8 


JRN.Z 

.. SBW 3 IF COUNTED DOWN 

0040 

C9 


RET 

3 RETURN ZERO SET 

0041 x 

CD 0049 

.. GETLs 

CALL 

INBIT 

0044* 

OF 


■ RRC 

5 B 1 1 u u i i u u y 

0045 x 

CB19 


RARR 

C 7 SHIFT INTO c HO 

0047 

3.0F8 


DJNZ 

*.GETL 



$ MOW F 

ALL INTO 

INBIT TO EAT THE STOP BIT 

0049 > 


INBIT: 



0049 

DB99 

MSI7ION 

1 M 

BANGER WAIT TILL WE GET A TRA 

004B ■'* 

5F 


MOV 

E v A 

004 C * r ‘ 

DB15 

„.INBW* 

IN 

15H 3 CHECK FOR ABORT 

004E 

A 7 


ANA 

A 

00 4 F **’ 

C2 0000s08 


JNZ 

INITO* 5 HALT SET? 

00.52“' 

DB99 


IN 

BANGER 

0054 '* 

AB 


XRA 

E 

0055 

OF 


RRC 


0056 

30F4 


JRNC 

.„INBW 




WASTE 

30 3 WAIT UNTIL SAMPLE POIN 



Til 



0058 “ 

3E3.E 

-i- 

MV I 

A ^ 30 

005A 

3D 

+.. „ 0001S 

DCR 

A 

005B 

20FD 


JRNZ 

. .00013 

005D x 

DB99 


IN 

BANGER 

005F*’* : 

AB 


XRA 

E ? COMPARE TO OLDER STUFF 

0060 **' 

E601 


ANI 

1 

0062 

C8; 

ED 

RZ 

3 0 IF TRANSITION HAPPEN 




WASTE 

29 3 ELSE WAIT UNTIL MIDDLE 
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0063 x 

3E1D 

-I- 

MVI 

A, 29 

0065 ■" 

3D 

+ , i) 0002 a 

DOR 

A 

0066 *“ 

20FD 

4“ 

JRNZ 

, « 00023 

0068 

3C 


INR 

A 5 RETURN VAL OF 1 

0069 •" 

09 

S * 

RET 


006A" 


5 ■* COMMAND TO 
; •» 

5 -tRHH!-# 

SAVECss 

WRITE OUT THE PROGRAM 

006A •" 

D5 


PUSH 

D 

006B"' 

2A 0000 s 06 


LHLD 

TXTUNF# 

006E 

11 00005 05 


LXI 

D,TEXT# 5 DE=START 

0071 •- 

A7 


ANA 

A 

0072 y 

EDS 2 


DSBC 

D 

0074*‘* 

EB 


XCHG 

? HL-ADDR t DE=SIZE 

0075 “ 

0077*“ 

1815 

JHPR 

3] **&#•&*& 

5 * 

5 * COMMAND TO 
E 

5 # PUT variabl 

3 * 

? 

PUTCs s 

SAVEE 

WRITE OUT A BLOCK OF WORDS ON TAP 

ei #words 

0077 

CD 0000 £ 04 


CALL.. 

TSTVFF# i GRAB A VARIABLE 

007A •" 

E5 


PUSH 

H 

007B" 

CF 


TSTCC 

COMMA, BADSAV1I RST 1 

007C •" 

2C 

4* 

. BYTE 

COMMA 

007D"' 

20 

4* 

» BYTE: 

BADSAV-.-1 

007E 

D7 


RST 

RSTEXP 5 GET NUMBA OF BYTES 

007F 

7C 


MOV 

A,H 5 REJECT BIZARRE VALUES 

0080 

B5 


ORA 

L 5 LIKE ZERO 

0081 •" 

CA 0000s09 


JZ 

SHOW# 

0084 

CB7C 


BIT 

7,H 5 OR NEGATIVE VALUES 

0086"' 

C2 0000s09 


.JNZ 

QHOW# 

0089 

29 


DAD 

H ? CONVERT WORDS TO BYTES 

008A 

EB 


XCHG 

; COUNT“DE 

00 SB 
008C 
OOSC 

F3 

SAVEEs 

XTHL 

DI 

2 STK=SCAN, HL“8TART 

008D 

CD 00D7"' 


CALL 

LEADER 5 WRITE OUT LEADER 

0090 •" 

0EA5 


MVI 

C,0A5H ? WRITE SENTINEL 

0092 

CD OOAC 


CALL 

OUTBYT 

0095"' 

CD OOA1 


CALL 

WEBLOG 5 AND DATA BLOCK 

0098 

009B"' 

CD 00D7"' 

FB 


CALL 

El 

LEADER 5 THEN TRAILER 

009C 

01 


POP 

D 

009D 

F7 


RST 

RSTFIN 

009E 

C3 0000s OA 

BADSAVs 

JMP 

QWHAT# 


■B-JHHi-K- 
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5 * 

5 * SUBROUTINE TO WRITE OUT BLOCK OF BYTES 




3 HL=LIST i DE : 

=# OF BYTES 



$ -ft 




« ##### 


00 A1 


WRBLOC “ 


00A.1. 


„.BYTEs 


00 A1 

4E 

MOV 

C, M 

00 A2 

CD OOAC"' 

CALL 

OUTBYT 

00A5 ’* 


I MX 

H 

00 A 6 

IB 

DCX 

D 

00A7-" 

7A 

MOV 

A,D 

00 AS-' 

83 

ORA 

F. 

00 A9 ■' 

2 OF 6 

JRMZ 

..BYTL 

OOAB"' 

C9 

RET 




n .ft#.### 

7 K 




3 * WRITE OUT A 

3 -H- 

5 * THIS ROUT IN! 

BYTE ONTO TAPE 



I IS TIME SENSITIVE! CHANGE CAREF 

LILLY ! 



S # 






OOAC •" 


OUTBYT« 


00 AC"' 

CD 00F7"' 

CALL 

T 

WRZERO 3 WRITE START BI 



t 

WASTE 

19 3 FINISH- START ' B 



ITL' 


00 AF •" 

3E13 

+ MV I 

Aj 19 

OOBI 

3D 

+..0003s DCR 

A 

00B2 

20 FD 

+ JRMZ 

„.00033 

00B4 

0608 

MV I 

B 5 8 3 WRITE OUT 8 BI 



TS 


00B6 "' 

CB09 

„.WRLs RRCR 

C 3 SHIFT NEXT BIT TO CY 

GOBS'" 

380ft 

JRG 

..WR1 3 BRANCH ON BIT VALUE 

OOBA "• 

CD 00F7"' 

CALL- 

WRZERO 3 THIS GUY ZERO 



WASTE 

19E 

OOBD 

3E13 

+ MV I 

A, 19 

OOBF •" 

3D 

+..0004s DCR 

A 

OOCO "' 

20FD 

+ JRMZ 

„„00043 

00C2"' 

1808 

JMF'R 

. . WRE 

00C4"' 


. WR1 s 

5 WRITE ONE BIT 


00C4 "' 

CD OOED"' 

CALL 

WRONE 



WASTE 

42 r. 

0007 

3E2A 

+ MV I 

A, 42 

0009 

3D 

+».0005s DCR 

A 

OOCA 

20FD 

+ JRMZ 

..00033 

OOCC •" 


.„WREs 


OOCC •" 

10ES 

DJNZ 

..WRL, 3 LOOP TILL BYTE DOME 

OOCE"' 

CD OOED"' 

CALL- 

WRONE 3 WRITE STOP BIT 



WASTE 

43 1 

00 D1 ■" 

3E2B 

+ MV I 

A, 43 

OOlJS 

3D 

■+..000&S DCR 

A 

00D4" 

20FD 

+ ... JRMZ 

.„00063 
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00D6 

C9 

00D7 ■" 

00D7 

OODA 

01 0E10 

OOD A 

3E2B 

OODC 

3D 

OODD- 

20FD 

OODF •" 

CD OOED 

00E2 •" 

OB 

DOE 3 

78 

00 E 4 

B1 

00E5 

20F3 

00E7 ' 

3E2A 

00E9 

3D 

OOE A 

20FD 

00 EC •** 

C9 


OOED 

OOED" 

D399 

00EF-" 

3E2E 

00F1 

3D 

00F2 T 

20FD 

OOF 4 

D399 

OOF 6 •" 

C9 


00F7 
00F7 -■ 

D399 

OOF 9 •' 

3E17 

OOFB •" 

3D 

00FC7 

20FD 

0 0 h E *’ 

D399 

0100 

09 


RET 

5 SUBROUTINE TO 
DER 


LEADER« 

LX I 

.,LDRls 

WASTE 

4* 

MV I 

4* „ u 0007 s 

DCR 

4* 

JRNZ 

CALL 

DCX 

MOV 

ORA 

JRNZ 

WASTE 

4* 

MV I 

4„ b 0003“ 

DCR 

4- 

JRNZ 

RET 


5 SUBROUTINE TO 
5 1/1200 SEC 
WRONEs 

OUT 

WASTE 

+ MV I 

+.»0009s DCR 
+ JRNZ 

OUT 
RET 

5 SUBROUTINE TO 

? 1/2400 SEC 
WRZEROS 



OUT 


WASTE 

4* 

MVI 

4 W w 001.0s 

DCR 

4- 

JRNZ 


OUT 


RET 


„ END 


WRITE OUT 3 SECOND:; 


B,3600 

43 C 
A, 43 
A 

..00071 

WRONE 

B 

Ai B 
C 

..LDR1 
42 Z 
A, 42 
A 

„„00081 

WRITE 1 HALF CYCLE 


BANGER 
46 L 
A, 46 
A 

..00091 
BANGER 

WRITE 1 HALF CYCLE 


BANGER 
23 Z 
A, 23 
A 

..00101 
BANGER 


WORTH OF LEA 


OF A ONE BIT 


OF A ZERO BIT 
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+.++++ SYMBOL TABLE +++++ 


BADSAV 

009E" 


BANGER 

BOTROM 

2000 


BOTSCR 

COMMA 

002C 


CR 

EDKEY 

0066 


GETC 

INCHAR 

0035 •" 


IN I TO 

LEADER 

00 D 7 


LOADC 

OUTBYT 

00 AC*" 


PUTC 

QWHAT 

0000sOA 

X 

RSTEXP 

RSTIGM 

0004 


RSTOCH 

RUBOUT 

00 IF 


SAVEC 

STF'BCT 

OOFC 


TAPE10 

TEXT 

0000 s 05 

X 

TOF'SCR 

TXTUNF 

0000 s 06 

X 

WRBLOC 

WRZERO 

00F7-" 


„BLNK. 

PROG. 

0101 

X 



0099 

BOTRAM 

3000 


BC20 

CLRSCR 

00005 07 

X 

OOOD 

DFTLMT 

BCOO 


0000 •" I 

INBIT 

0049 •" 


0000s08 X 

KEYBSZ 

0028 


0007 I 

NLLN 

0067 


0077 ’’ I 

QHOW 

0000 s09 

X 

0002 

RSTFIN 

0006 


0003 

RSTPAR 

0005 


006A"' I 

SAVEE 

008C' 


0012 

TARGET 

0013 •" 


BFFF 

TSTVFF 

0000 s 04 

X 

00 A1 

WRONE 

OOED 


0000 s 0:3 X 

.DATA. 

0000* 

X 
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0200 


. LOC 
„IDENT 
. PABS 
„ PHEX 

20OH 5 TEST SHIT 

BANGER 

1E00 

BANGIN * 

1E00H 

? BIT BANGER READ PORT 

1E01 

BANG! = 

1E01H 

; BIT BANG CODE TO WRITE A ONE 

1E00 

BANCO = 

.DEFINE 

%LAB • 

1E00H ? BIT BANG CODE TO WRITE A ZERO 

WASTE CTIME, “ZLABj = C 

MVI A,TIME 

DOR A 

JRNZ "/.LAB 3 




5INCHAR 

CLOBBERS A, 

Be i 

DE 

0200 


INCHARs 

; nz 

IF 

NO TIMEOUT, Z IF TIMEOUT 



CHAR I 

M C 



0200 

01 0810 

OR 

LXI B,SIOH 


58 BITS, 10=TIME0UT FAC 

0203 

CD 0219 

„.SBWs 

CALL INBIT 


5 WAIT PER START BIT 

0206 

3004 


JRNC ..GETL 


5 GOTIT 

0208 

OD 


DUR L- 


5 TIMEOUT? 

0209 

2 OF” 3 


JRNZ . „ SBW 


5 NOT YET 

020B 

C9 


RET 


? Z SET 

0200 

CD 0219 

. GET La 

CALL INBIT 



02 OF 

DC 0219 


CC INBIT 


5 GET ANOTHER 1 

0212 

CB19 


RARR C 



0214 

10F6 


DJNZ . . GETL 


? GET 8 BITS 

0216 

AF 


XRA A 



0217 

3C 


I NR A 



0213 

C9 


RET 


? RETURN 

0219 

3A 1E00 

IMBITS 

LDA BANGIN 


?GET■BIT/EAT STOP BIT F 



OH ABOVE 



02 1 C 

?5F 


MOV E,A 


SWA!T FOR TRANSITION 

021D 

3A 1E00 

..I NEWS 

LDA BANGIN 


*1 

0220 

AB 


XRA E 


S CHANGE? 

0221 

OF 


RRC 



0222 

30 F 9 


JRNC .. INBM 


5 NO 




WASTE: 30 


5 WAIT FOR SAMPLE POINTC 

0224 

3E1E 

4- 

MVI ft i 30 



0226 

3D 

+ „„0001s 

DCR A 



0227 

20FD 

4* 

JRNZ ..000 Hi 



0229 

3A 1E00 


LDA BANGIN 



022C 

AB 


XRA E 


5 COMPARE TO OLDER 

022D 

E601 


AMI 1 



022F 

OF 


RRC 



0230 

C9 


RET 




4F 

CD 027B 

? OUTBYT 

CLOBBERS A, 

BC 


0231 
0232 

OUTBYTS 

rl'JV l;M 

CALL WRZERO 


“ ' v Us jf™. t„u J rrrl; v J. I'm P*l. . . 

5 WRITE START BIT 


- 


WASTE 19 


5 VERY TIME SENSITIVE!: 

0235 

3E13 

4* 

MVI A,19 



A *7' 

3D 

„ 0002 s 

DCR A 



0238 

20FD 

4" 

JRNZ . . 0002II 
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023A 

0608 

> 

MVI B,8 

?WRITE 8 BITS 

023C 

CB09 

. .. WRL» 

RRCR C 

5 NEXT BIT TO CARRY 

023E 

380A 


..IRC „ , WR1 

SIF ONE, WRITE ONE 

0240 

CD 027B 


CALL WRZERO 
WASTE .1. 91! 

5 ELSE WRITE ZERO 

0243 

3E13 

4* 

MVI A,19 


0245 

3D 

4„„00035 

DCR A 


0246 

20FD 

4* 

JRNZ ..000311 


0248 

1803 


JMPR ..WRE 

LOOP COUNTER 

024A 

CD 0273 

..WRis 

CALL WRONE 
WASTE 42 C. 

;WRITE ONE-BIT 

024D 

3E2A 

+ 

.MVI A,42 


024F 

3D 

+„„00045 

DCR A 


0250 

20FD 

+ 

JRNZ ..000411 


0252 

10E8 

.. WREs 

DJNZ .„WRL 

5 TILL 8 BITS DONE 

0254 

CD 0273 


CALL WRONE 
WASTE 43C 

5 WRITE STOP BIT 

0257 

3E2B 

4 

MVI A,43 


0259 

3D 

4.„0005" 

DCR A 


025A 

2 OF D 

4* 

JRNZ ,,.00051 


025C 

C9 


RET 

5 ALL DONE! 




? LEADER 

CLOBBERS BC AND 

A 


025D 

01 0E10 

LEADERS 

LX I B,3600 

;3 SECS 

OF LEADER 

0260 


„.LBRls 

WASTE 43 L 



0260 

3E2B 

4 

MVI A,43 



0262 

3D 

4. .0006s 

DCR A 



0263 

20FD 

4 

JRNZ ,.,.00061 



0265 

CD 0273 


CALL WRONE 

5 LEADER 

IS ALL ONES 

0268 

OB 


DCX B 



0269 

78 


MOV A,B 



026A 

B1 


ORA C 



026B 

20F3 


JRNZ „«LDR1 

WASTE 42C 



026D 

3E2A 

4* 

MVI A,42 



026F 

3D 

+.„0007s 

DCR A 



0270 

20FD 

4 

JRNZ .. .000711 



0272 

C9 


RET 





5WRONE WRITES ONE HALF C 
SEC > 

:YCLE OF 

ONE-BIT (1/1200 

0273 

3A 1EO1 

WRUNt« 

LDA BANG1 

9 CHANGE 

ITS STATE 




WASTE 22 

5 WAIT S 

;OME, THEN FALL I 



NTO .„. 

11 



0276 

3E16 

4 

MVI A,22 



0 v’7H 

3D 

4« w 0008 s 

DCR A 



U2 79 

20FD 

4 

JRNZ ..000811 





? 

WASTE 46 





7 

LDA BANCO 

5 CHANGE 

STATE AGAIN 



1 

RET 





5 WRZERO 

WRITES ONE HLAF 

CYCLE OF 

ZERO BIT (1/240 



U SEC) 
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027B 

3A 1E01 

WRZEROS LDA BANG1 



NASTE 23 l 

027E 

3E17 

+ MVI A,23 

0280 

3D 

+. 0009 s DCR A 

0281 

20FEi 

+ JRMZ ..000 

0283 

3 A 1E00 

LDA BANGO 

0286 

C9 

RET 



END 
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BANCO 

1EOO 

BANG I 

1EO1 

BANG IN 

1E00 

INB.IT 

0219 

INCHAR 

0200 

LEADER 

0250 

OUTBYA 

0231 

OUTBYT 

0232 

WRONE 

0273 

WRZERO 
»PROG„ 

027B 

0000"' ) 

.BLNK. 

( 

0000”03 X 

..DATA. 

0000* 





